home *** CD-ROM | disk | FTP | other *** search
/ Amoszine PD Edition 0 / Amoszine PD Edition 0.adf / SOURCE_CODE / shiny_star.AMOS / shiny_star.amosSourceCode < prev    next >
AMOS Source Code  |  1993-02-25  |  2KB  |  70 lines
  1. '************************************
  2. '*                                  *
  3. '*              Glint               *
  4. '*         ----------------         *
  5. '*                                  *
  6. '*      By Malcolm Lavey 1993       *
  7. '*                                  *
  8. '************************************
  9. '
  10. '
  11. Screen Open 0,320,256,32,Lowres
  12. Curs Off : Flash Off : Cls 0 : Hide On 
  13. Get Sprite Palette 
  14. '
  15. TITLE_TEXT["SHINEY TEXT STAR",20,20]
  16. TITLE_TEXT[" THAT SPARKLES  ",23,60]
  17. TITLE_TEXT["ON THE TEXT LETTERS",5,80]
  18. TITLE_TEXT["  VERY COOL..... ",20,120]
  19. '
  20. Do 
  21.    
  22.    GLINT
  23.    
  24. Loop 
  25.  
  26. Procedure TITLE_TEXT[TEX$,X,Y]
  27.    '
  28.    POS=1
  29.    XPOS=0
  30.    '
  31.    '************************
  32.    ' XSIZE=WIDTH OF ONE BOB 
  33.    '************************
  34.    '
  35.    XSIZE=16
  36.    LE=Len(TEX$)
  37.    '      
  38.    For MANY=1 To LE
  39.       I=Asc(Mid$(TEX$,POS,1))
  40.       IMAGE=I-31
  41.       Paste Bob X+XPOS*XSIZE,Y,IMAGE
  42.       Inc POS
  43.       Inc XPOS
  44.    Next MANY
  45.    '    
  46. End Proc
  47.  
  48. Procedure GLINT
  49.    '
  50.    '************************************************
  51.    '  Search screen display for a pixel,colour 2
  52.    '************************************************
  53.    '
  54.    X=Rnd(320) : Y=Rnd(256)
  55.    '
  56.    '************************************************
  57.    '     If found,animate star at that point! 
  58.    '************************************************
  59.    '
  60.    If Point(X,Y)=2 and Chanan(1)=0
  61.       Channel 1 To Bob 1
  62.       Bob 1,X,Y,60
  63.       A$="Anim 1,(60,6)(61,6)(63,6)(64,10)(63,6)(62,6)(61,6)(60,6);"
  64.       Amal 1,A$
  65.       Amal On 1
  66.    End If 
  67.    '
  68.    '************************************************
  69.    '
  70. End Proc